1 GOTO910 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX` 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX` 5 [153]"hhhhhhh` 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]` 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)` 35 IFUW=0THENSYSUU,15 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39 45 GETUI$:IFUI$=""THEN45 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45 60 IFUR=ULTHEN45 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT 80 UR$=LEFT$(UR$,UI):PRINT:RETURN 95 IFLEN(US$)=0THEN110 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$="" 105 RETURN 110 IFUA=46THENRETURN 115 IFUA=32ANDUR<>0THENRETURN 120 IFUA>47ANDUA<58THENRETURN 125 IFUA>64ANDUA<91THENRETURN 130 IFUA<193ORUA>218THENUI$="":RETURN 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128) 140 RETURN 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983 310 REM PROJECT DIRECTOR: FRANK WINTER 320 REM PROGRAM NAME: WORD DRILL 330 REM WRITTEN BY: PAT SCRIMGEOUR/STEVE DOUGLAS YORK BD OF ED 340 REM REVISED BY: PAT SCRIMGEOUR 350 REM UPDATED BY: BILL CUMBERLAND 399 : 400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9 405 PRINT"  [201][206][211][212][210][213][195][212][201][207][206][211] [146] 413 [153]" RIGHT$N THIS PROGRAM, RIGHT$ WILL SHOW YOU EIGHT SENTENCES. 414 PRINT" [197]ACH ONE WILL HAVE A BLANK IN IT, 415 [153]" AND THERE WILL BE TWO WORDS FOLLOWING IT. 417 PRINT" [217]OU MUST TYPE IN  [193] [146] OR  [194] [146]," 418 PRINT" DEPENDING ON WHICH WORD YOU CHOOSE. 419 [153]" ATNFTER YOU HAVE DONE ALL EIGHT, YOU 420 PRINT" WILL HAVE A CHANCE TO CHANGE ANY OF YOUR ANSWERS. 421 [153]" RIGHT$F YOU CHOOSE TO CHANGE AN ANSWER, 422 PRINT" IT WILL AUTOMATICALLY BE CHANGED TO 426 [153]" THE OTHER WORD (A OR B) POSSIBLE FOR THAT SENTENCE. 427 GOSUB820 428 PRINT"[147] [215]HEN YOU ARE SATISFIED WITH YOUR ANSWERS, TYPE  N [146]. 429 [153]" RIGHT$ WILL THEN TELL YOU WHICH ONES" 431 [153]" YOU GOT WRONG, AND RIGHT$ WILL GIVE YOU A" 432 [153]" SHORT EXPLANATION OF THE DIFFERENCE" 433 [153]" BETWEEN THE TWO WORDS." 434 [153]" RIGHT$ WILL NOT TELL YOU WHAT THE RIGHT" 435 [153]" ANSWER IS, SO YOU WILL HAVE TO" 436 [153]" REMEMBER THE DIFFERENCES THE NEXT TIME." 485 [141]820:[142] 499 : 500 [143] SOUND 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130] 510 [151]54296,15:[151]54277,42:[151]54278,250 515 [151]54276,23:[151]54273,23:[151]54272,191 520 [129]TM[178]1[164]100:[130]:[151]54276,32:[129]TM[178]1[164]200:[130] 525 [151]54296,0:[142] 530 [143] SOUND 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130] 540 [151]54296,15:[151]54277,18:[151]54278,242 545 [151]54276,33:[151]54273,4:[151]54272,48 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130] 555 [151]54296,0:[142] 560 [143] SOUND 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130] 570 [151]54296,8:[151]54277,42:[151]54278,250 575 [151]54276,23:[151]54273,23:[151]54272,191 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130] 585 [151]54296,0:[142] 590 [129]TM[178]1[164]500:[130]:[142] 591 [129]TM[178]1[164]1000:[130]:[142] 592 [129]TM[178]1[164]2000:[130]:[142] 595 [129]TM[178]1[164]5000:[130]:[142] 599 : 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3 801 [153]" A TPUG EDUCATIONAL PROGRAM":[141]591 802 [153]" WAIT"; 803 [153]" WAIT"; 804 [153]" WAIT"; 805 [153]" WORD DRILL WAIT"; 806 [153]" WAIT"; 807 [153]"OPEN WAIT"; 808 [153]" WAIT"; 809 [153]" WAIT":[141]591:[141]560 810 [153]" INSTRUCTIONS? Y/N 811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811 812 IFR$="Y"THENGOSUB400 813 PRINT"[147] AND AWAY WE GO ......... 814 [141] 591:[141]500:[141]591 815 [137]1000 820 [141]591:[141]560 822 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT" 824 [161]UI$:[139]UI$[179][177]" "[167]824 826 [142] 830 [141]591:[141]560 835 [151]UN,0:[153][200](UD$,24);"PRINT (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAITLIST" 840 [161]UI$:[139]UI$[179][177]" "[167]840 845 [142] 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18) 855 [153]" --------------------------------------" 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT 865 UH=0:PRINT"":RETURN 875 PRINTLEFT$(UD$,24);" SETTING THE STAGE ... ":RETURN 899 : 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238 905 UD$="":UP$=" " 909 RETURN 910 GOSUB900:PRINT"[147] " 920 GOTO800 999 : 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0 1095 IF FLAG=1 THEN CLR:GOSUB900: 1097 UT$=" [215]ORD [196]RILL" 1100 FLAG=1 1105 QU$=CHR$(34) 1111 TZ$="" 1120 DIM S$(45),A$(45,2),A(45),N(45),L(45),QU(23),Q$(45),AA$(45,2) 1130 DIM LL(45),R(45),AA(45),I(45) 1132 RESTORE:QU(L(R))=0 1140 M=8:UP=0:UG$="" 1150 N=44:AR=0 1160 DEF FNS(T)=LEN(AA$(T,R(T))) 1170 FORT=701TO710:POKET,0:NEXT 1180 GOSUB875 1190 FORT=1TON:READS$(T),A$(T,1),A$(T,2),A(T),N(T),L(T):NEXT 1196 FLAG=1 1200 FORT=1TOM 1210 R=INT(N*RND(1))+1:IFQU(L(R))THEN1210 1220 Q$(T)=S$(R):QU(L(R))=1:AA$(T,1)=A$(R,1):AA$(T,2)=A$(R,2):AA(T)=A(R) 1230 I(T)=N(R) 1240 LL(T)=L(R):NEXT:CR$=CHR$(13)+"" 1250 FORT=1TOM 1260 POKE714+LL(T),1 1265 PRINT"[147]":POKEUT,UL% 1270 UG$="[209]UESTION":GOSUB 850 1271 PRINT" ";:FORG=1TOLEN(Q$(T)):IFMID$(Q$(T),G,1)="[160]"THENPRINTCR$CR$" ";:GOTO1290 1280 PRINTMID$(Q$(T),G,1); 1290 NEXTG 1300 REMPRINT" "; 1310 J=0:IFPOS(0)>35-LEN(AA$(T,1))-LEN(AA$(T,2))ORI(T)THENPRINTCR$CR$;:J=1 1320 PRINT" ("AA$(T,1)", "AA$(T,2)")" 1330 GOSUB560:PRINTCR$" [215]HICH WORD?  A [146] OR  B [146] >>>> "; 1340 US$="AB":UL=1:GOSUB35:R=ASC(UR$)-64 1380 R(T)=R:PRINT" "AA$(T,R) 1390 PRINT""; 1400 FORG=1TOLEN(Q$(T)):IFMID$(Q$(T),G,1)="[160]"THENPRINTCHR$(13)CR$"";:GOTO1430 1410 IFMID$(Q$(T),G,1)="[164]"THENPRINTAA$(T,R);:G=G+LEN(AA$(T,R)) 1420 PRINT""; 1430 NEXT 1440 IFJ=1THENPRINTCR$;:GOTO1460 1450 IFI(T)ANDR=2THENFORTY=1TOI(T):PRINT"";:NEXTTY 1460 PRINT" ";:IFPOS(0)>0THEN1460 1480 FORTM=1TO2000:NEXT:NEXTT 1490 GOSUB1650 1500 PRINTTZ$;:PRINT" [195]HANGES? (Y/N) >>> "; 1501 US$="YN":UL=1:GOSUB35:R$=UR$ 1530 IFR$="Y"THENGOSUB1640 1540 IFR$="N"THENGOSUB1640:GOTO1590 1545 PRINTTZ$;:PRINT" " 1550 PRINTTZ$;:PRINT" [215]HICH SENTENCE? (1-8) >> "; 1555 US$="12345678":UL=1:GOSUB35:T=VAL(UR$) 1580 GOSUB1640:R(T)=1-(R(T)-1)+1:GOSUB1830 1585 PRINTTZ$;:PRINT" ":GOTO1500 1590 GOSUB1760 1591 GOSUB 830 1630 GOSUB2770 1640 FORG=1TO200:NEXT:RETURN 1650 PRINT"[147]";:FORT=1TOM 1670 PRINT T;:FORG=1TOLEN(Q$(T)) 1680 N$=MID$(Q$(T),G,1):PO=POS(0):IFPO>39THENPO=PO-39 1690 IFN$="[160]"ANDPO<38THENFORTY=POTO38:PRINT" ";:NEXT 1700 IFN$="[160]"THENPRINTCR$" ";:Y$=Y$+"":GOTO1730 1710 IFN$="[164]"THENPRINTAA$(T,R(T));:G=G+LEN(AA$(T,R(T)))-1:GOTO1740 1720 PRINTN$; 1730 NEXTG:FORG=POS(0)TO39:PRINT" ";:NEXT:PRINTCR$;:Y$=Y$+"":NEXTT:RETURN 1740 IFI(T)ANDR(T)=2THENG=G-I(T) 1750 GOTO1730 1760 PRINT"";:G=US+2:FORT=1TOM 1770 IFPEEK(G)-48=TTHEN1800 1780 PRINT"";:G=G+40:IFG=33690THENPRINT"";:RETURN 1790 GOTO1770 1800 IFR(T)=AA(T)THENPRINT"[186][157]";:GOSUB500:SC=SC+1:QU(LL(T))=2:NEXTT:GOTO1820 1810 PRINT"X[157]";:GOSUB530:POKE700+LL(T),1:NEXTT 1820 PRINT"";:RETURN 1830 PRINT"";:G=US+2 1840 IFPEEK(G)-48=TTHEN1870 1850 PRINT"";:G=G+40:IFG=33690THENPRINT"";:RETURN 1860 GOTO1840 1870 PRINT" "T;:FORG=1TOLEN(Q$(T)) 1880 N$=MID$(Q$(T),G,1):IFN$="[160]"THENPRINTCR$" ";:GOTO1910 1890 IFN$="[164]"THENPRINTAA$(T,R(T));:G=G+LEN(AA$(T,R(T)))-1:GOTO1920 1900 PRINTN$; 1910 NEXTG:PRINT" [157][157][157]"CR$CR$;:RETURN 1920 IFI(T)ANDR(T)=2THENG=G-I(T) 1930 GOTO1910 2160 UG$="[208]AGE":GOSUB850 2170 RETURN 2210 DATA" [212]HE [164][164][164][164][164][164] WE RECEIVED WAS TO PAY[160]ATTENTION TO THE TEACHER.",ADVISE 2220 DATAADVICE,2,0,1 2230 DATA" [201] [164][164][164][164][164][164] YOU TO KEEP CALM.",ADVISE,ADVICE,1,0,1 2240 DATA" [212]HE TEMPERATURE WAS NOT[160][164][164][164][164][164][164][164][164] BY THE RAIN.",AFFECTED,EFFECTED 2250 DATA1,0,2 2260 DATA" [212]HE [164][164][164][164][164][164] OF THE STORM WAS TO[160]LOWER THE TEMPERATURE." 2270 DATAAFFECT,EFFECT,2,0,2 2280 DATA" [212]HE CAR WOULD NOT [164][164][164][164][164] PROPERLY." 2290 DATABRAKE,BREAK,1,0,3 2300 DATA" [196]ON'T [164][164][164][164][164] THAT!" 2310 DATABRAKE,BREAK,2,0,3 2320 DATA" [212]HE SANDPAPER IS TOO [164][164][164][164][164][164]." 2330 DATACOARSE,COURSE,1,0,4 2340 DATA" [215]E VISITED THE RACING [164][164][164][164][164][164]." 2350 DATACOARSE,COURSE,2,0,4 2360 DATA" [195]OME [164][164][164][164], PLEASE.", HERE,HEAR,1,0,5 2370 DATA" [195]AN YOU [164][164][164][164] ME?", HERE,HEAR,2,0,5 2380 DATA" [200]E THINKS [164][164][164][164][164] GOING TO LEAVE.",THEIR,"THEY'[148][148]RE",2,4,6 2390 DATA" [212]HIS BOX BELONGS RIGHT [164][164][164][164][164].",THEIR,THERE,2,0,7 2400 DATA" [201]S THIS [164][164][164][164][164] CAR?", THEIR,THERE,1,0,7 2410 DATA" [198]EW PLANTS GROW ON THE [164][164][164][164][164][164].",DESERT,"DESSER[148]T",1,2,8 2420 DATA" [215]E'RE HAVING PIE FOR [164][164][164][164][164][164].",DESERT,"DESSER[148]T",2,2,8 2430 DATA" [204]ANGSTAFF [210]OAD WAS [164][164][164][164][164][164][164][164] OLD[160][200]IGHWAY 7.",FORMALLY,FORMERLY,2,0,9 2440 DATA" [212]HE ROBBERY WAS [164][164][164] BY AN[160]ESCAPED CRIMINAL.",LED,"LEA[148]D",1,2,10 2450 DATA" [195]URTAINS ARE OFTEN WEIGHTED DOWN[160]WITH [164][164][164].", LED,"LEA[148]D",2,2,10 2460 DATA" [193] BUS JUST DROVE [164][164][164][164] THE SCHOOL.", PAST,"PASS[148][148]ED",1,4,11 2470 DATA" [193] BUS JUST [164][164][164][164] THE SCHOOL.", PAST,"PASS[148][148]ED",2,4,11 2480 DATA" [215]OULD YOU LIKE A [164][164][164][164][164] OF CAKE?", PEACE,PIECE,2,0,12 2490 DATA" [215]HEN THERE ARE NO WARS,[160]THERE IS [164][164][164][164][164].", PEACE,PIECE,1,0,12 2500 DATA" [193]NOTHER WORD FOR PRAIRIE IS [164][164][164][164][164].", PLAIN,PLANE,1,0,13 2510 DATA" [193] WHITE WALL LOOKS [164][164][164][164][164].", PLAIN,PLANE,1,0,13 2520 DATA" [193]IR [195]ANADA OWNS MANY [164][164][164][164][164][164].", PLAINS,PLANES,2,0,13 2530 DATA" [212]HE [164][164][164][164][164][164][164][164][164] OF THE LOAN WAS[160]REPAID TO THE BANK.", PRINCIPLE 2540 DATA PRINCIPAL,2,0,14 2550 DATA" [193] PERSON SHOULD STICK TO HIS[160][164][164][164][164][164][164][164][164][164][164].", PRINCIPALS,PRINCIPLES 2560 DATA2,0,14 2570 DATA" [202]EAN [164][164][164][164][164] THE BALL AT YOU.", THREW,"THROU[148][148]GH",1,4,15 2580 DATA" [212]HE BALL WENT [164][164][164][164][164] THE WINDOW.", THREW,"THROU[148][148]GH",2,4,15 2590 DATA" [200]AVE YOU [164][164][164] THE NEWSPAPER TODAY?", RED,"REA[148]D",2,2,16 2600 DATA" [212]HIS COMPUTER IS [164][164] BIG FOR A[160]WRISTWATCH.", TO,"TO[148]O",2,2,17 2610 DATA" [198]RANK ATE [164][164][164] MANY JELLYBEANS.", TOO,TWO,1,0,17 2620 DATA" [193] BELT GOES AROUND YOUR [164][164][164][164][164].", WAIST,WASTE,1,0,18 2630 DATA" [215]E SHOULD NOT [164][164][164][164][164] ENERGY.", WAIST,WASTE,2,0,18 2640 DATA" [211]OME NEWSPAPERS ARE PUBLISHED[160][164][164][164][164][164][164].", WEAKLY,WEEKLY,2,0,19 2650 DATA" [215]HEN YOU ARE ILL, SOMETIMES YOU[160]ARE [164][164][164][164].", WEAK,WEEK,1,0,19 2660 DATA" [217]OU SHOULD BE ABLE TO [164][164][164] THIS[160]SENTENCE.", SEE,SEA,1,0,20 2670 DATA" [193]NOTHER WORD FOR [164][164][164] IS OCEAN.", SEE,SEA,2,0,20 2680 DATA" [212]HE [164][164][164][164][164][164][164] WILL BE SUNNY.", WEATHER,WHETHER,1,0,21 2690 DATA" [201] DON'T KNOW [164][164][164][164][164][164][164] OR NOT IT[160]WILL BE SUNNY.", WEATHER,WHETHER 2700 DATA 2,0,21 2710 DATA" [164][164][164][164][164] PENCIL IS THIS?","[215]HO'S","[215]HOSE",2,0,22 2720 DATA" [164][164][164][164][164] COMING TO THE PARTY?","[215]HO'S","[215]HOSE",1,0,22 2730 DATA" [201] THINK THIS IS [164][164][164][164] ERASER.", YOUR,"YOU'[148][148]RE",1,4,23 2740 DATA" [201] HOPE [164][164][164][164] GOING TO ANSWER THIS[160]QUESTION PROPERLY.", YOUR,YOU'RE 2750 DATA 2,4,23 2770 IFQU(1)<>1THEN2880 2780 PRINT"[147][193]DVICE/[193]DVISE" 2790 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]" 2800 PRINT"[193]DVICE[146] IS A NOUN MEANING SUGGESTIONS" 2810 PRINT"GIVEN TO IMPROVE SOMETHING." 2820 PRINT"[197]XAMPLE[146]: [205]Y ADVICE TO YOU IS TO GO" 2830 PRINT" AND SEE THE TEACHER ABOUT YOUR WORK." 2840 PRINT"[193]DVISE[146], ON THE OTHER HAND, IS A VERB" 2850 PRINT"MEANING TO GIVE ADVICE." 2860 PRINT"[197]XAMPLE[146]: [211]HE ADVISED ME TO GO HOME." 2870 GOSUB830 2880 IFQU(2)<>1THEN3010 2890 PRINT"[147][193]FFECT/[197]FFECT" 2900 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]" 2910 PRINT"[212]O AFFECT[146] SOMETHING IS TO ALTER ITS" 2920 PRINT"STATE SOMEHOW." 2930 PRINT"[197]XAMPLE[146]: [212]HE INJURY AFFECTED HIS KNEE." 2940 PRINT"[193]N EFFECT[146] IS THE CHANGE MADE IN" 2950 PRINT"SOMETHING WHEN IT IS AFFECTED." 2960 PRINT"[197]XAMPLE[146]: [212]HE INJURY HAD AN EFFECT" 2970 PRINT" ON HIS KNEE." 2980 PRINT""QU$"[197]FFECT"QU$" IS A NOUN, AND "QU$"AFFECT"QU$ 2990 PRINT"IS A VERB." 3000 GOSUB830 3010 IFQU(3)<>1THEN3110 3020 PRINT"[147][194]RAKE/[194]REAK" 3030 PRINT"[163][163][163][163][163][163][163][163][163][163][163]" 3040 PRINT"[197]RRORS MADE BETWEEN THESE TWO WORDS" 3050 PRINT"ARE GENERALLY SPELLING MISTAKES," 3060 PRINT"RATHER THAN MISUNDERSTANDINGS." 3070 PRINT"[212]O BREAK[146] IS TO HARM OR DESTROY; TO" 3080 PRINT"BRAKE[146] IS TO SLOW DOWN (E.G., APPLY" 3090 PRINT"THE BRAKES IN A CAR)." 3100 GOSUB830 3110 IFQU(4)<>1THEN3240 3120 PRINT"[147][195]OARSE/[195]OURSE" 3130 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]" 3140 PRINT"[195]OARSE[146] IS AN ADJECTIVE (DESCRIBES A" 3150 PRINT"NOUN) THAT USUALLY MEANS LARGE-GRAINED." 3160 PRINT"[198]OR INSTANCE, COARSE SAND MEANS SAND" 3170 PRINT"WITH FAIRLY LARGE PEBBLES IN IT." 3180 PRINT"[195]OARSE SCREEN IS SCREEN WITH LARGE" 3190 PRINT"SPACES BETWEEN THE WIRES." 3200 PRINT"[193] [195]OURSE[146] IS A ROUTE OR TRACK TO FOLLOW." 3210 PRINT"(E.G., A RACING COURSE, A COURSE OF" 3220 PRINT"ACTION, OR A COURSE AT SCHOOL)" 3230 GOSUB830 3240 IFQU(5)<>1THEN3340 3250 PRINT"[147][200]EAR/[200]ERE" 3260 PRINT"[163][163][163][163][163][163][163][163][163]" 3270 PRINT"[200]EAR[146] IS A VERB MEANING TO DETECT WITH" 3280 PRINT"THE EAR. [217]OU HEAR[146] NOISES." 3290 PRINT"[200]ERE[146] IS A PRONOUN (REPLACES A NOUN)" 3300 PRINT"THAT INDICATES THAT AN ACTION IS TAKING" 3310 PRINT"PLACE WHERE YOU ARE. "QU$"[195]OME HERE."QU$" MEANS"; 3320 PRINTQU$"[195]OME TO WHERE [201] AM."QU$"." 3330 GOSUB830 3340 IFQU(6)<>1THEN3460 3350 PRINT"[147][212]HEIR/[212]HEY'RE" 3360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]" 3370 PRINT"[212]HEIR[146] IS A POSSESSIVE PRONOUN TO" 3380 PRINT"INDICATE THAT SOMETHING BELONGS TO A" 3390 PRINT"GROUP OF PEOPLE." 3400 PRINT"[197]XAMPLE[146]: [212]HAT IS THEIR BASEBALL." 3410 PRINT"[212]HEY'RE[146] IS A CONTRACTION OF THE WORDS" 3420 PRINTQU$"THEY ARE"QU$"." 3430 PRINT"[197]XAMPLE[146]: "QU$"[212]HEY'RE ALL HERE."QU$" MEANS THE 3440 [153]" SAME AS "QU$"(null)HEY ARE ALL HERE."QU$"." 3450 [141]830 3460 [139]QU(7)[179][177]1[167]3630 3470 [153]"LOAD(null)HEIR/(null)HERE" 3480 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 3490 [153]QU$"(null)HEIR"QU$" IS A POSSESSIVE PRONOUN TO" 3500 [153]"INDICATE THAT SOMETHING BELONGS TO A" 3510 [153]"GROUP OF PEOPLE." 3520 [153]"VALXAMPLEWAIT: (null)HAT IS THEIR FRISBEE." 3530 [153]""QU$"(null)HERE"QU$" IS A PRONOUN TO DESCRIBE A" 3540 [153]"PLACE DISTANT FROM YOUR OWN LOCATION." 3550 [153]"VALXAMPLEWAIT: (null)HE FLYING SAUCER LANDED" 3560 [153]" THERE." 3570 [153]"(null)HESE TWO WORDS ARE OFTEN CONFUSED." 3580 [153]"ATNN EASY WAY TO REMEMBER WHICH IS WHICH" 3590 [153]"IS TO REMEMBER THAT THEREWAIT HAS IN IT THE" 3600 [153]"WORD HEREWAIT, BOTH OF WHICH REFER TO" 3610 [153]"PLACES." 3620 [141]830 3630 [139]QU(8)[179][177]1[167]3740 3640 [153]"LOADSTR$ESERT/STR$ESSERT" 3650 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 3660 [153]"(null)HERE SHOULD BE VERY LITTLE CONFUSION" 3670 [153]"OVER THE MEANINGS OF THESE WORDS, BUT" 3680 [153]"SINCE THEY ARE SPELLED SO SIMILARLY," 3690 [153]"MANY PEOPLE DON'T REMEMBER HOW TO SPELL" 3700 [153]"EITHER ONE. ATN DESERTWAIT IS A LARGE" 3710 [153]"EXPANSE OF DRY LAND. ATN DESSERTWAIT IS" 3720 [153]"EATEN AFTER DINNER." 3730 [141]830 3740 [139]QU(9)[179][177]1[167]3880 3750 [153]"LOADASCORMALLY/ASCORMERLY" 3760 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 3770 [153]"ASCORMALLYWAIT IS AN ADVERB (WORD THAT" 3780 [153]"DESCRIBES A VERB) MEANING OFFICIALLY." 3790 [153]"(null)HEN SOMETHING HAS BEEN DONE FORMALLY," 3800 [153]"IT HAS BEEN DONE IN A PRE-ARRANGED" 3810 [153]"ORDER, ACCORDING TO TRADITION." 3820 [153]"ASCORMERLYWAIT IS ANOTHER ADVERB, BUT THIS" 3830 [153]"ONE MEANS "QU$"PREVIOUSLY"QU$"." 3840 [153]"VALXAMPLEWAIT: (null)IRKO ASCRYCE PLAYS FOR" 3850 [153]" THE (null)APLE (null)EAFS. LEFT$E FORMERLY PLAYED" 3860 [153]" FOR THE (null)UEBEC (null)ORDIQUES." 3870 [141]830 3880 [139]QU(10)[179][177]1[167]4020 3890 [153]"LOAD(null)EAD/(null)ED" 3900 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 3910 [153]"(null)EADWAIT IS A WORD THAT CAN BE PRONOUNCED" 3920 [153]"TWO DIFFERENT WAYS, EACH INDICATING A" 3930 [153]"DIFFERENT MEANING. (null)HEN PRONOUNCED" 3940 [153]QU$"LED"QU$" IT MEANS A VERY HEAVY TYPE OF" 3950 [153]"METAL. (null)HEN PRONOUNCED "QU$"LEED"QU$" IT IS A" 3960 [153]"VERB MEANING "QU$"TO GUIDE"QU$"." 3970 [153]"(null)EDWAIT IS THE PAST TENSE OF THE VERB" 3980 [153]QU$"LEAD"QU$"." 3990 [153]"VALXAMPLEWAIT: (null)HE GENERAL LED THE ATTACK" 4000 [153]" AGAINST THE ENEMY." 4010 [141]830 4020 [139]QU(11)[179][177]1[167]4210 4030 [153]"LOAD(null)ASSED/(null)AST" 4040 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 4050 [153]"(null)HERE IS MUCH CONFUSION OVER THESE TWO" 4060 [153]"WORDS, SINCE THEY HAVE SIMILAR MEANINGS" 4070 [153]"AS WELL AS SIMILAR SPELLINGS. (null)ASSEDWAIT" 4080 [153]"IS THE PAST TENSE OF THE VERB "QU$"PASS"QU$"," 4090 [153]"MEANING TO GO BY. (null)ASTWAIT IS EITHER" 4100 [153]"A ADJECTIVE (DESCRIBES A NOUN) MEANING" 4110 [153]"SOMETHING THAT HAS GONE BY ("QU$"PAST 4120 PRINT"TENSE"QU$"), A NOUN MEANING TIME THAT HAS" 4130 PRINT"GONE BY ("QU$"THE PAST"QU$"), OR A VERB USED" 4140 PRINT"IN A SIMILAR, BUT NOT IDENTICAL WAY" 4150 PRINT"TO "QU$"PASSED"QU$"." 4160 PRINT"[197]XAMPLE[146]: [212]HE TRUCK PASSED US." 4170 PRINT" [212]HE TRUCK WENT PAST US." 4180 PRINT"[194]OTH SENTENCES HAVE SIMILAR MEANINGS," 4190 PRINT"BUT ARE CONSTRUCTED DIFFERENTLY." 4200 GOSUB830 4210 IFQU(12)<>1THEN4300 4220 PRINT"[147][208]EACE/[208]IECE" 4230 PRINT"[163][163][163][163][163][163][163][163][163][163][163]" 4240 PRINT"[208]EACE[146] (A NOUN) IS WHAT EXISTS WHEN" 4250 PRINT"THERE IS NO FIGHTING. [212]HE TIME WHEN" 4260 PRINT"THERE IS NO WAR IS CALLED PEACETIME." 4270 PRINT"[193] PIECE[146] IS A PORTION OF SOMETHING." 4280 PRINT"[193] PIECE OF CAKE IS PART OF A CAKE." 4290 GOSUB830 4300 IFQU(13)<>1THEN4480 4310 PRINT"[147][208]LAIN/[208]LANE" 4320 PRINT"[163][163][163][163][163][163][163][163][163][163][163]" 4330 PRINT"[193] PLAIN[146] IS A LARGE, FLAT AREA OF LAND." 4340 PRINT"[208]LAIN[146] IS ALSO AN ADJECTIVE TO DESCRIBE" 4350 PRINT"SOMETHING AS ORDINARY OR UNIFORM." 4360 PRINT"[193] PLAIN HAT WOULD BE AN ORDINARY-LOOKING"; 4370 PRINT"HAT, PROBABLY ALL ONE COLOUR." 4380 PRINT"[208]LANE[146] IS A NOUN WHICH MEANS ONE OF" 4390 PRINT"THREE THINGS: [201]N MATHEMATICS, A PLANE" 4400 PRINT"IS A FLAT SURFACE IN SPACE. [215]HEN YOU" 4410 PRINT"ARE BUILDING SOMETHING, A PLANE IS A" 4420 PRINT"TOOL USED TO MAKE A SURFACE FLAT." 4430 PRINT"([212]O PLANE IS ALSO THE VERB DESCRIIBING" 4440 PRINT"THE ACTION OF USING A PLANE.) [193]S WELL," 4450 PRINT"PLANE IS NOW USED AS A SHORT FORM OF" 4460 PRINT"THE WORD "QU$"AIRPLANE"QU$"." 4470 GOSUB830 4480 IFQU(14)<>1THEN4650 4490 PRINT"[147][208]RINCIPAL/[208]RINCIPLE" 4500 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 4510 PRINT"[208]RINCIPAL[146] IS AN ADJECTIVE MEANING" 4520 PRINT"MOST IMPORTANT, OR LARGEST." 4530 PRINT"[198]OR EXAMPLE, WE SPEAK OF "QU$"THE PRINCIPAL" 4540 PRINT"REASON"QU$" FOR SOMETHING. [215]HEN USED IN" 4550 PRINT"THE FORM "QU$"PRINCIPAL OF A SCHOOL"QU$", THE" 4560 PRINT"WORD IS A NOUN." 4562 PRINT"[208]RINCIPAL[146] CAN ALSO MEAN A SUM OF MONEY 4564 [153]"LENT AND EARNING INTEREST. 4570 PRINT"[212]HE WORD PRINCIPLE[146] IS OFTEN CONFUSED" 4580 PRINT"WITH "QU$"PRINCIPAL"QU$". [193] PRINCIPLE IS" 4590 PRINT"A RULE, LAW, OR DOCTRINE." 4600 PRINT"[193] PERSON'S PRINCIPLES ARE THE RULES HE" 4610 PRINT"LIVES BY. [212]HE PRINCIPLES OF A METHOD" 4620 PRINT"ARE THE RULES THAT MUST BE FOLLOWED" 4630 PRINT"IN THE METHOD." 4640 GOSUB830 4650 IFQU(15)<>1THEN4780 4660 PRINT"[147][212]HREW/[212]HROUGH" 4670 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]" 4680 PRINT"[212]HREW[146] IS THE PAST TENSE OF THE VERB" 4690 PRINTQU$"THROW"QU$"." 4700 PRINT"[197]XAMPLE[146]: [194]OB THREW THE CREAM PIE." 4710 PRINT"[212]HROUGH[146] IS AN ADVERB INDICATING HOW" 4720 PRINT"SOMETHING MOVES. "QU$"[212]HE BALL WENT" 4730 PRINT"THROUGH THE WINDOW."QU$ 4740 PRINT"[212]HROUGH CAN ALSO BE USED AS AN ADJECTIVE"; 4750 PRINT"TO MEAN "QU$"FINISHED"QU$", AS IN "QU$"[193]RE YOU" 4760 PRINT"THROUGH?"QU$ 4770 GOSUB830 4780 IFQU(16)<>1THEN4890 4790 PRINT"[147][210]EAD/[210]ED" 4800 PRINT"[163][163][163][163][163][163][163][163]" 4810 PRINT"[210]EAD[146] IS A WORD WITH TWO MEANINGS" 4820 PRINT"ACCORDING TO PRONUNCIATION. [215]HEN" 4830 PRINT"PRONOUNCED "QU$"REED"QU$", "QU$"READ"QU$" IS A VERB" 4840 PRINT"MEANING A WAY OF COMMUNICATING. [215]HEN" 4850 PRINT"IT IS PRONOUNCED "QU$"RED"QU$", IT IS THE PAST" 4860 PRINT"TENSE OF THIS VERB." 4870 PRINT"[210]ED[146] IS A COLOUR." 4880 GOSUB830 4890 IFQU(17)<>1THEN5040 4900 PRINT"[147][212]O/[212]OO/[212]WO" 4910 PRINT"[163][163][163][163][163][163][163][163][163][163]" 4920 PRINT"[212]WO[146] IS A WORD REPRESENTING A NUMBER" 4930 PRINT"(OF OBJECTS). (E.G., [212]WO STARS: * *)" 4940 PRINT"[212]OO[146] MEANS "QU$"ALSO"QU$", "QU$"AS WELL AS"QU$", OR" 4950 PRINTQU$"AN EXCESSIVE AMOUNT"QU$". [198]OR INSTANCE:" 4960 PRINTQU$"TOO MUCH SCHOOL"QU$", OR "QU$"[212]HERE WERE" 4970 PRINT"RADIOS, AND TELEVISIONS, TOO."QU$"." 4980 PRINT"[212]O[146] IS A PREPOSITION HAVING SO MANY" 4990 PRINT"MEANINGS THAT THERE ISN'T TIME TO[146] SHOW" 5000 PRINT"THEM ALL HERE." 5010 PRINT"[212]HE IMPORTANT THING TO[146] REMEMBER IS THAT" 5020 PRINTQU$"TOO"QU$" IS NOT SPELLED "QU$"TO"QU$"." 5030 GOSUB830 5040 IFQU(18)<>1THEN5160 5050 PRINT"[147][215]AIST/[215]ASTE" 5060 PRINT"[163][163][163][163][163][163][163][163][163][163][163]" 5070 PRINT"[212]HE WAIST[146] IS THE PART OF THE BODY" 5080 PRINT"JUST ABOVE THE HIPS. [201]T IS THE AREA" 5090 PRINT"WHERE A BELT IS WORN." 5100 PRINT"[215]ASTE[146] IS A NOUN MEANING EXCESS WITH" 5110 PRINT"NO APPARENT VALUE, AS IN "QU$"[212]HAT WAS A" 5120 PRINT"WASTE OF TIME."QU$", OR A VERB MEANING TO" 5130 PRINT"USE TOO MUCH OF SOMETHING ("QU$"[196]ON'T WASTE" 5140 PRINT"ENERGY."QU$")." 5150 GOSUB830 5160 IFQU(19)<>1THEN5250 5170 PRINT"[147][215]EAK/[215]EEK" 5180 PRINT"[163][163][163][163][163][163][163][163][163]" 5190 PRINT"[215]EAK[146] IS AN ADJECTIVE INDICATING LACK" 5200 PRINT"OF STRENGTH." 5210 PRINT"[197]XAMPLE[146]: [212]HE [193]RGOS ARE A WEAK TEAM." 5220 PRINT"[193] WEEK[146] IS A PERIOD OF TIME EQUAL" 5230 PRINT"TO SEVEN DAYS." 5240 GOSUB830 5250 IFQU(20)<>1THEN5340 5260 PRINT"[147][211]EA/[211]EE" 5270 PRINT"[163][163][163][163][163][163][163]" 5280 PRINT"[211]EA[146] IS A NOUN MEANING THE SAME AS" 5290 PRINT"OCEAN, A LARGE BODY OF WATER (USUALLY" 5300 PRINT"SALT WATER)." 5310 PRINT"[211]EE[146] IS A VERB MEANING TO PERCEIVE" 5320 PRINT"WITH THE EYES. "QU$"[201] SEE THE COMPUTER."QU$ 5330 GOSUB830 5340 IFQU(21)<>1THEN5460 5350 PRINT"[147][215]EATHER/[215]HETHER" 5360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 5370 PRINT"[212]HE WEATHER[146] IS THE CLIMATE IN ONE" 5380 PRINT"PLACE AT A PARTICULAR TIME. [212]HE WEATHER"; 5390 PRINT"CAN BE RAINY, HOT, DRY, OR ALMOST" 5400 PRINT"ANYTHING ELSE." 5410 PRINT"[215]HETHER[146] OR NOT YOU UNDERSTAND THE" 5420 PRINT"DIFFERENCE BETWEEN THESE TWO WORDS" 5430 PRINT"DEPENDS ON WHETHER[146] YOU UNDERSTAND" 5440 PRINT"THE USES OF THE WORDS." 5450 GOSUB830 5460 IFQU(22)<>1THEN5640 5470 PRINT"[147][215]HO'S/[215]HOSE" 5480 PRINT"[163][163][163][163][163][163][163][163][163][163][163]" 5490 PRINT"[212]HESE TWO WORDS ARE OFTEN CONFUSED" 5500 PRINT"BECAUSE PEOPLE ARE UNSURE ABOUT THEIR" 5510 PRINT"MEANINGS. [210]EMEMBER THAT WHO'S[146] IS ONLY[146]" 5520 PRINT"A CONTRACTION FOR "QU$"WHO IS"QU$" (E.G.," 5530 PRINTQU$"[215]HO'S ON FIRST?"QU$")." 5540 PRINT"[215]HOSE[146], HOWEVER, IS A POSSESSIVE" 5550 PRINT"PRONOUN MEANING "QU$"BELONGING TO WHOM"QU$"." 5560 PRINT"[217]OU MIGHT THINK THAT, SINCE MOST WORDS" 5570 PRINT"TAKE A ' (E.G., [202]ACK'S) TO BECOME" 5580 PRINT"POSSESSIVE, THAT WHO'S WOULD BE THE" 5590 PRINT"POSSESSIVE FORM OF WHO, BUT THIS IS NOT" 5600 PRINT"THE CASE. [212]HE ONLY WAY TO REMEMBER" 5610 PRINT"WHICH WORD TO USE WHEN IS TO KNOW THE" 5620 PRINT"DIFFERENCES; SO, LEARN THEM!" 5630 GOSUB830 5640 IFQU(23)<>1THEN5790 5650 PRINT"[147][217]OUR/[217]OU'RE" 5660 PRINT"[163][163][163][163][163][163][163][163][163][163][163]" 5670 PRINT"[200]ERE ARE TWO WORDS THAT ARE OFTEN" 5680 PRINT"MISTAKEN FOR ONE ANOTHER. [217]OU CAN AVOID"; 5690 PRINT"ALL ERRORS WITH THESE WORDS IF YOU" 5700 PRINT"REMEMBER TWO THINGS:" 5710 PRINT"1) [217]OUR[146] IS ONLY[146] USED AS A PRONOUN" 5720 PRINT" EXPRESSING POSSESSION. [198]OR EXAMPLE," 5730 PRINT" "QU$"[217]OUR SHIRT IS BLUE."QU$ 5740 PRINT"2) [217]OU'RE[146] IS ONLY[146] USED AS A" 5750 PRINT" CONTRACTION OF "QU$"YOU ARE"QU$". [197]XAMPLE:" 5760 PRINT" "QU$"[201] THINK YOU'RE SITTING IN FRONT OF" 5770 PRINT" A COMPUTER."QU$ 5780 GOSUB830 5790 AR=0:FORA=1TO23:AR=AR+QU(A):NEXT 5795 IFAR=0THEN5910 5800 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,3 5805 PRINT" [212]HAT'S IT. [217]OU GOT"AR-8"RIGHT OUT" 5810 PRINT" OF 8 SENTENCES.":GOSUB560:GOSUB591 5815 IFAR<16THENPRINT" [217]OU CAN DO BETTER THAN THIS.":GOSUB530 5820 IF AR=16 THEN PRINT" [212]HAT'S TERRIFIC!!!!":GOSUB500:GOSUB500 5825 GOSUB591:GOSUB560:PRINT" [215]ANT TO PLAY AGAIN? (Y/N) "; 5830 GETR$:IFR$<>"Y"ANDR$<>"N"THEN5830 5835 IFR$ ="Y" THEN RESTORE:GOTO1000 5850 PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213] 5860 [147]"MENU",8 5870 [138] 5880 [128] 5910 [142] 6000 [143] WHC 90:11:30